home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO038B.dsk / SGAME.bas < prev    next >
BASIC Source File  |  2012-02-16  |  685b  |  24 lines
  1. 100  REM   SGAME
  2. 200  PRINT D$;"STORE GAMEVARS"
  3. 680  TEXT : HOME 
  4. 690  PRINT "DO YOU WISH TO CONTINUE THIS GAME ?"
  5. 700  INPUT "(Y OR N)";A$
  6. 710  IF A$ = "Y"  THEN  GOTO 740
  7. 720  IF A$ = "N"  THEN  GOTO 770
  8. 730  GOTO 700
  9. 740 GO = 4
  10. 745  POKE 103,1: POKE 104,24: POKE 6144,0
  11. 750  IF AUX  THEN  PRINT D$;"CHAIN /RAM/PLATOON."
  12. 760  PRINT D$;"CHAIN PLATOON."
  13. 770  PRINT 
  14. 780  PRINT "DO YOU WISH TO START A NEW GAME ?"
  15. 790  INPUT "(Y OR N)";A$
  16. 800  IF A$ = "Y"  THEN  GOTO 855
  17. 810  IF A$ = "N"  THEN  GOTO 830
  18. 820  GOTO 790
  19. 830  PRINT 
  20. 840  PRINT "GOODBYE"
  21. 850  END 
  22. 855  POKE 103,1: POKE 104,24: POKE 6144,0
  23. 857  IF AUX  THEN  PRINT  CHR$(4);"RUN /RAM/PLATOON."
  24. 860  PRINT D$;"RUN PLATOON."